使用搜索窗体中的值生成动态查询

#使用搜索窗体中的值生成动态查询| 来源: 网络整理| 查看: 265

如何使用 Access 中的搜索窗体中的值生成动态查询项目 04/13/2023 适用于: Access for Microsoft 365, Access 2019, Access 2016, Access 2013, Access 2010, Access 2007, Access 2003, Access 2002

高级：需要专家编码、互操作性和多用户技能。

本文适用于 Microsoft Access 数据库 (.mdb) 文件或 Microsoft Access 数据库 (.accdb) 文件，以及 Microsoft Access 项目 (.adp) 文件。

摘要

本文介绍如何使用 Microsoft Access 中搜索窗体中的值动态生成查询字符串的条件。

更多信息

有时，你可能想要创建用作搜索窗体的窗体。你希望能够在窗体上输入值并动态生成相应的 SQL 字符串。以下步骤演示如何动态生成使用 BuildCriteria 方法的查询字符串。

Microsoft 提供的编程示例仅用于进行说明，而不提供明示或默示担保。这包括但不限于适销性或对特定用途的适用性的默示担保。本文假设您熟悉正在演示的编程语言和用于创建和调试过程的工具。 Microsoft 支持工程师可以帮助解释特定过程的功能，但他们不会修改这些示例，以提供额外的功能或构造过程来满足特定要求。警告：如果按照本示例中的步骤操作，请修改示例数据库 Northwind.mdb。你可能想要备份 Northwind.mdb 文件，并在数据库副本上执行以下步骤。

分步示例启动访问。在 “帮助 ”菜单上，指向 “示例数据库”，然后单击 “Northwind 示例数据库”。在“设计”视图中打开“客户”窗体。向窗体添加命令按钮和文本框，然后设置以下属性： Command Button ------------------------ Name: cmdSearch Caption: Search OnClick: Event Procedure Text Box -------------- Name: txtSQL Width: 4.4583" Height: 1.25" 将命令按钮的 OnClick 属性设置为以下事件过程： Private Sub cmdSearch_Click() On Error Resume Next Dim ctl As Control Dim sSQL As String Dim sWhereClause As String 'Initialize the Where Clause variable. sWhereClause = " Where " 'Start the first part of the select statement. sSQL = "select * from customers " 'Loop through each control on the form to get its value. For Each ctl In Me.Controls With ctl 'The only Control you are using is the text box. 'However, you can add as many types of controls as you want. Select Case .ControlType Case acTextBox .SetFocus 'This is the function that actually builds 'the clause. If sWhereClause = " Where " Then sWhereClause = sWhereClause & BuildCriteria(.Name, dbtext, .Text) Else sWhereClause = sWhereClause & " and " & BuildCriteria(.Name, dbtext, .Text) End If End Select End With Next ctl 'Set the forms recordsource equal to the new 'select statement. Me.txtSQL = sSQL & sWhereClause Me.RecordSource = sSQL & sWhereClause Me.Requery End Sub

保存窗体，然后在窗体视图中打开它。

请注意，单击 “搜索 ”命令按钮时， txtSQL 文本框会反映从“客户”窗体上的值创建的查询。此外，已重新查询“客户”窗体，以便反映新 SQL 字符串的结果。

参考

有关 BuildCriteria 方法的详细信息，请在 Visual Basic 编辑器中单击“帮助”菜单上的 Microsoft Visual Basic Help，在 Office 助手或“答案向导”中键入 buildcriteria 方法，然后单击“搜索”以查看主题。

【本文地址】

公司简介

联系我们